home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / GENIE.SCR < prev    next >
Encoding:
Text File  |  1987-09-20  |  1.1 KB  |  32 lines
  1.      ;
  2.      ; This script accesses a free online demo of GENIE via a toll-free
  3.      ; 800# using the Hayes modem dialing command. You must run this
  4.      ; script using the QMODEM Alt-F command, since it includes a phone
  5.      ; number.
  6.      ;
  7.      ; This script can be linked to a Phone Book entry or executed
  8.      ; with the Alt-F command.
  9.      ;
  10.  
  11. Note    **  Calling GEnie  **
  12.  
  13. Turnoff Linefeed 8_Bit Echo
  14. Timeout 60 Failed                ; Goto label FAILED if there are problems
  15. Setcomm 8 None 1
  16.  
  17. If      $ONLINE  Skip            ; If linked, goto label Skip
  18. Send    "ATDT 1-800-638-8369{"   ; Call the toll-free 800#
  19. Waitfor "CONNECT"                ; Wait until modem returns CONNECT
  20. Skip:                            ; Jump here if Linked Script
  21. Send    "~H~H"                   ; Get GEnie's attention
  22. Waitfor "U#="                    ; Look for the Password Prompt
  23.  
  24.  
  25. Send    "USERID,PASSWORD{"       ; Send your ID and Password
  26. Return
  27.  
  28.  
  29. Failed:                          ; In case of failure (TIMEOUT)...
  30. Note    **  Logon to GEnie failed **
  31. Return
  32.